home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tech Arsenal 1
/
Tech Arsenal (Arsenal Computer).ISO
/
tek-03
/
qbasicpg.zip
/
CIRCLE-2.BAS
< prev
next >
Wrap
BASIC Source File
|
1989-08-31
|
961b
|
28 lines
' CIRCLE-2.BAS
' This program demonstrates how to create arcs with the CIRCLE statement.
CLS
INPUT "Please enter a screen mode (0-13): ", modeNum%
SCREEN modeNum%
DO
CLS
PSET (150, 30): PSET (150, 125) ' draw top and bottom points
PSET (95, 78): PSET (205, 78) ' draw left and right points
LOCATE 2, 18: PRINT "1.57" ' label for top point
LOCATE 10, 7: PRINT "3.14" ' label for left point
LOCATE 18, 18: PRINT "4.71" ' label for bottom point
LOCATE 10, 28: PRINT "0 or 6.28" ' label for right point
LOCATE 20, 1
PRINT "Enter values between 0 and 6.28"
PRINT "(A negative value draws a radius.)"
INPUT "Please enter starting point: ", starting!
INPUT "Please enter ending point: ", ending!
CIRCLE (150, 78), 50, , starting!, ending! ' no color value
INPUT "Press Enter to continue or Q to quit: ", dummy$
LOOP UNTIL UCASE$(dummy$) = "Q"